home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / UCB Logo 3.0 / logolib / pop < prev    next >
Encoding:
Text File  |  1992-09-04  |  124 b   |  9 lines  |  [TEXT/JV01]
  1. to pop :stack
  2. local "result
  3. make "result first thing :stack
  4. make :stack butfirst thing :stack
  5. output :result
  6. end
  7.  
  8. bury "pop
  9.